80 SYS65517:IFPEEK(781)=22THENVIC=1
90 IF VIC THENX=PEEK(56):BASE=PEEK(55)+256*(X-1)+1:POKE56,X-1:GOTO 110
100 BASE=49152
110 WEDGE=BASE+11
120 PRINT"[147]    INITIALIZING..."
130 FORK=BASETOBASE+186:READN:POKEK,N:C=C+N:NEXT
140 IFC<>17067THENPRINT"ERROR IN DATA STATEMENTS!":END
150 PRINT"[147]TO ENABLE, TYPE:":PRINT"     AUTO <INCREMENT>"
160 PRINT"TO DISABLE, TYPE:":PRINT"     AUTO"
170 X2=INT(WEDGE/256):X1=WEDGE-X2*256:POKEBASE+1,X1:POKEBASE+6,X2
180 IF VIC=0 THEN 210
190 C=0:FORK=1TO6:READN:POKE(BASE+N),PEEK(BASE+N)+32:C=C+N:NEXT
200 IFC<>750THEN140
210 SYSBASE:CLR:NEW
1000 DATA 169,11,141,2,3,169,192,141,3,3,96,173,54,3,208,5,173,55,3,240,49,173
1010 DATA 52,3,240,44,173,56,3,24,109,54,3,141,54,3,173,57,3,109,55,3,141,55,3
1020 DATA 174,54,3,32,205,189,169,32,32,210,255,169,2,133,198,169,145,141,119
1030 DATA 2,169,17,141,120,2,32,96,165,134,122,142,58,3,132,123,140,59,3,32
1040 DATA 115,0,144,67,240,65,201,65,208,84,32,115,0,201,85,208,77,32,115,0
1050 DATA 201,84,208,70,32,115,0,201,79,208,63,169,0,141,52,3,141,54,3,141,55
1060 DATA 3,32,115,0,32,107,169,165,20,141,56,3,240,3,141,52,3,165,21,141,57,3
1070 DATA 240,3,141,52,3,76,116,164,32,107,169,208,8,141,54,3,141,55,3,240,10
1080 DATA 165,20,141,54,3,165,21,141,55,3,174,58,3,172,59,3,76,134,164
1090 DATA 50,72,131,154,157,186